home *** CD-ROM | disk | FTP | other *** search
- rem start of repeat test
-
- set i 0
- repeat
- increment i
- rem $i
- until i = "5"
-
- rem end of repeat test.
-
- rem start of foreach test
-
- set value1 E d
-
- foreach i in value1 do
- rem $i
- set value2 M i
- foreach j in value2 do
- rem $i $j
- endfor
- rem $i
- endfor
-
- rem end of foreach test
-
- rem start of loop test
-
- set i 0
-
- loop {
- increment i
- if i = "6" {break;}
- rem $i
- }
-
- rem $i
-
- rem end of loop test
-
- rem start of switch test
-
- set i 7
-
- switch i
- case = "7" { rem ok; }
- case = "8" { rem wrong; }
- case in "7 8" { rem this is also ok; }
- endswitch
-
- rem end of switch test
-